home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / helper1a / mainfr.frm < prev    next >
Text File  |  1999-10-09  |  15KB  |  485 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Begin VB.Form mainfr 
  4.    Caption         =   "Treeview - Report - List Helper  - Developer Nikki Pradhan"
  5.    ClientHeight    =   3195
  6.    ClientLeft      =   165
  7.    ClientTop       =   450
  8.    ClientWidth     =   4680
  9.    Icon            =   "mainfr.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   3195
  12.    ScaleWidth      =   4680
  13.    StartUpPosition =   3  'Windows Default
  14.    Begin VB.PictureBox picSplitter 
  15.       BackColor       =   &H00808080&
  16.       BorderStyle     =   0  'None
  17.       FillColor       =   &H00808080&
  18.       Height          =   4800
  19.       Left            =   5910
  20.       ScaleHeight     =   2090.126
  21.       ScaleMode       =   0  'User
  22.       ScaleWidth      =   780
  23.       TabIndex        =   6
  24.       Top             =   705
  25.       Visible         =   0   'False
  26.       Width           =   72
  27.    End
  28.    Begin MSComctlLib.TreeView tvTreeView 
  29.       Height          =   4800
  30.       Left            =   0
  31.       TabIndex        =   5
  32.       Top             =   750
  33.       Width           =   2430
  34.       _ExtentX        =   4286
  35.       _ExtentY        =   8467
  36.       _Version        =   393217
  37.       LabelEdit       =   1
  38.       LineStyle       =   1
  39.       Style           =   7
  40.       HotTracking     =   -1  'True
  41.       Appearance      =   1
  42.    End
  43.    Begin MSComctlLib.ListView lvListView 
  44.       Height          =   4800
  45.       Left            =   2565
  46.       TabIndex        =   4
  47.       Top             =   705
  48.       Width           =   3210
  49.       _ExtentX        =   5662
  50.       _ExtentY        =   8467
  51.       LabelWrap       =   -1  'True
  52.       HideSelection   =   -1  'True
  53.       _Version        =   393217
  54.       ForeColor       =   -2147483640
  55.       BackColor       =   -2147483643
  56.       BorderStyle     =   1
  57.       Appearance      =   1
  58.       NumItems        =   0
  59.    End
  60.    Begin VB.PictureBox picTitles 
  61.       Align           =   1  'Align Top
  62.       Appearance      =   0  'Flat
  63.       BorderStyle     =   0  'None
  64.       ForeColor       =   &H80000008&
  65.       Height          =   300
  66.       Left            =   0
  67.       ScaleHeight     =   300
  68.       ScaleWidth      =   4680
  69.       TabIndex        =   1
  70.       TabStop         =   0   'False
  71.       Top             =   0
  72.       Width           =   4680
  73.       Begin VB.Label lblTitle 
  74.          BorderStyle     =   1  'Fixed Single
  75.          Caption         =   " ListView:"
  76.          Height          =   270
  77.          Index           =   1
  78.          Left            =   2580
  79.          TabIndex        =   3
  80.          Tag             =   " ListView:"
  81.          Top             =   0
  82.          Width           =   3210
  83.       End
  84.       Begin VB.Label lblTitle 
  85.          BorderStyle     =   1  'Fixed Single
  86.          Caption         =   " TreeView:"
  87.          Height          =   270
  88.          Index           =   0
  89.          Left            =   0
  90.          TabIndex        =   2
  91.          Tag             =   " TreeView:"
  92.          Top             =   12
  93.          Width           =   2016
  94.       End
  95.    End
  96.    Begin MSComctlLib.StatusBar sbStatusBar 
  97.       Align           =   2  'Align Bottom
  98.       Height          =   270
  99.       Left            =   0
  100.       TabIndex        =   0
  101.       Top             =   2925
  102.       Width           =   4680
  103.       _ExtentX        =   8255
  104.       _ExtentY        =   476
  105.       _Version        =   393216
  106.       BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
  107.          NumPanels       =   3
  108.          BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  109.             AutoSize        =   1
  110.             Object.Width           =   2619
  111.             Text            =   "Status"
  112.             TextSave        =   "Status"
  113.          EndProperty
  114.          BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  115.             Style           =   6
  116.             AutoSize        =   2
  117.             TextSave        =   "09-Oct-99"
  118.          EndProperty
  119.          BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  120.             Style           =   5
  121.             AutoSize        =   2
  122.             TextSave        =   "3:51 PM"
  123.          EndProperty
  124.       EndProperty
  125.    End
  126.    Begin MSComctlLib.ImageList imlToolbarIcons 
  127.       Left            =   1980
  128.       Top             =   6030
  129.       _ExtentX        =   1005
  130.       _ExtentY        =   1005
  131.       BackColor       =   -2147483643
  132.       ImageWidth      =   16
  133.       ImageHeight     =   16
  134.       MaskColor       =   12632256
  135.       _Version        =   393216
  136.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  137.          NumListImages   =   12
  138.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  139.             Picture         =   "mainfr.frx":0442
  140.             Key             =   "Back"
  141.          EndProperty
  142.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  143.             Picture         =   "mainfr.frx":0554
  144.             Key             =   "Forward"
  145.          EndProperty
  146.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  147.             Picture         =   "mainfr.frx":0666
  148.             Key             =   "Cut"
  149.          EndProperty
  150.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  151.             Picture         =   "mainfr.frx":0778
  152.             Key             =   "Copy"
  153.          EndProperty
  154.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  155.             Picture         =   "mainfr.frx":088A
  156.             Key             =   "Paste"
  157.          EndProperty
  158.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  159.             Picture         =   "mainfr.frx":099C
  160.             Key             =   "Delete"
  161.          EndProperty
  162.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  163.             Picture         =   "mainfr.frx":0AAE
  164.             Key             =   "Properties"
  165.          EndProperty
  166.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  167.             Picture         =   "mainfr.frx":0BC0
  168.             Key             =   "View Large Icons"
  169.          EndProperty
  170.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  171.             Picture         =   "mainfr.frx":0CD2
  172.             Key             =   "View Small Icons"
  173.          EndProperty
  174.          BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  175.             Picture         =   "mainfr.frx":0DE4
  176.             Key             =   "View List"
  177.          EndProperty
  178.          BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  179.             Picture         =   "mainfr.frx":0EF6
  180.             Key             =   "View Details"
  181.          EndProperty
  182.          BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  183.             Picture         =   "mainfr.frx":1008
  184.             Key             =   "Clear List"
  185.          EndProperty
  186.       EndProperty
  187.    End
  188.    Begin MSComctlLib.ImageList treeimg 
  189.       Left            =   0
  190.       Top             =   0
  191.       _ExtentX        =   1005
  192.       _ExtentY        =   1005
  193.       BackColor       =   -2147483643
  194.       ImageWidth      =   22
  195.       ImageHeight     =   22
  196.       MaskColor       =   12632256
  197.       _Version        =   393216
  198.    End
  199.    Begin VB.Image imgSplitter 
  200.       Height          =   4785
  201.       Left            =   2460
  202.       MousePointer    =   9  'Size W E
  203.       Top             =   750
  204.       Width           =   180
  205.    End
  206. End
  207. Attribute VB_Name = "mainfr"
  208. Attribute VB_GlobalNameSpace = False
  209. Attribute VB_Creatable = False
  210. Attribute VB_PredeclaredId = True
  211. Attribute VB_Exposed = False
  212. Option Explicit
  213. Dim db As Database
  214. Dim str As String
  215. Dim temprs As Recordset
  216. Dim itmx As ListItem
  217.  
  218. Const NAME_COLUMN = 0
  219. Const TYPE_COLUMN = 1
  220. Const SIZE_COLUMN = 2
  221. Const DATE_COLUMN = 3
  222. Private Declare Function OSWinHelp% Lib "user32" Alias "WinHelpA" (ByVal hwnd&, ByVal HelpFile$, ByVal wCommand%, dwData As Any)
  223.   
  224. Dim mainsel As String
  225.  
  226.   
  227. Dim mbMoving As Boolean
  228. Const sglSplitLimit = 500
  229.  
  230. Priv